10 PRINT CHR$(147)
20 POKE 53281,9
30 POKE 53280,7
40 PRINT CHR$(5)
50 DIM S$(100)
60 FOR X = 1 TO 100
70 READ S$(X)
80 NEXT X
90 FOR A = 1 TO 50
100 R = INT (50 * RND (1)) + 1
110 IF S$(R * 2 - 1 )="PAUL" THEN 100
120 PRINT "WHAT IS THE CAPITAL OF "
130 PRINT S$(R * 2 -1)
140 PRINT
150 INPUT "";K$
151 IF K$="?"THEN PRINT"THE ANSWER IS=";S$(R*2):PRINT:GOTO 200
155 IF K$ = "Q" THEN 63000
160 IF K$ = S$(R * 2) THEN PRINT "CORRECT ANSWER #";A:PRINT:GOTO 200
170 PRINT "SORRY...LET'S TRY AGAIN!
180 [133] "AWAITNOTHER STATE OR SWAITAME?";C$
185 [139] C$ [178] "A" [167] [153]: [137] 100
190 [153]:[137] 120
200 S$(R [172] 2 [171] 1)[178]"PAUL"
210 [130] A
220 [153]:[153]:[153]"            THAT'S ALL!!"
300 [129]X[178]1[164]2000:[130]
500 [137]63000
1000 [143] STATE DATA
1010 [131] ALABAMA,MONTGOMERY,ALASKA,JUNEAU,ARIZONA,PHOENIX,ARKANSAS,LITTLE ROCK
1020 [131] CALIFORNIA,SACRAMENTO,COLORADO,DENVER,CONNECTICUT,HARTFORD
1030 [131] DELAWARE,DOVER,FLORIDA,TALLAHASSEE,GEORGIA,ATLANTA,HAWAII,HONOLULU
1040 [131] IDAHO,BOISE,ILLINOIS,SPRINGFIELD,INDIANA,INDIANAPOLIS,IOWA,DES MOINES
1050 [131] KANSAS,TOPEKA,KENTUCKY,FRANKFORT,LOUISIANA,BATON ROUGE,MAINE,AUGUSTA
1060 [131] MARYLAND,ANNAPOLIS,MASSACHUSETS,BOSTON,MICHIGAN,LANSING
1070 [131] MINNESOTA,ST. PAUL,MISSISSIPPI,JACKSON,MISSOURI,JEFFERSON CITY
1080 [131] MONTANA,HELENA,NEBRASKA,LINCOLN,NEVADA,CARSON CITY,NEW HAMPSHIRE
1090 [131] CONCORD,NEW JERSEY,TRENTON,NEW MEXICO,SANTA FE,NEW YORK,ALBANY
1100 [131] NORTH CAROLINA,RALEIGH,NORTH DAKOTA,BISMARCK,OHIO,COLUMBUS,OKLAHOMA
1110 [131] OKLAHOMA CITY,OREGON,SALEM,PENNSYLVANIA,HARRISBURG,RHODE ISLAND
1120 [131] PROVIDENCE,SOUTH CAROLINA,COLUMBIA,SOUTH DAKOTA,PIERRE,TENNESSEE
1130 [131] NASHVILLE,TEXAS,AUSTIN,UTAH,SALT LAKE CITY,VERMONT,MONTPELIER
1140 [131] VIRGINIA,RICHMOND,WASHINGTON,OLYMPIA,WEST VIRGINIA,CHARLESTON
1150 [131] WISCONSIN,MADISON,WYOMING,CHEYENNE
5000 [143] PAUL RAYMER
5010 [143] 3464 TOWNHOUSE DR
5020 [143] LAS VEGAS NV 89121
5030 [143]
5040 [143] VIII/XV/MCMLXXXIII
63000 [153]"LOADWANT TO TRY AGAIN?":[151]198,0:[146]198,1:[161]K$
63005 [139]K$[179][177]"Y"[175]K$[179][177]"N"[167]63000
63010 [139]K$[178]"Y"[167][140]:[153]"LOAD":[137]60
63020 [153]"LOADLOAD"[199](34)"PAYLOAD"[199](34)",8":[153]"RUN"
63030 [151]631,13:[151]632,13:[151]198,2:[128]